home *** CD-ROM | disk | FTP | other *** search
/ Freelog 116 / FreelogNo116-JuilletSeptembre2013.iso / Systeme / DriverBooster / driver_booster_setup.exe / {app} / AutoUpdate.exe / 0 / RCDATA / TAUTOUPDATEFORMMAIN / TAUTOUPDATEFORMMAIN.txt < prev   
Text File  |  2013-06-08  |  19KB  |  711 lines
  1. object AutoupdateFormMain: TAutoupdateFormMain
  2.   Left = 0
  3.   Top = 0
  4.   BorderStyle = bsNone
  5.   Caption = 'Driver Booster Updater'
  6.   ClientHeight = 252
  7.   ClientWidth = 428
  8.   Color = clBtnFace
  9.   DoubleBuffered = True
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'Tahoma'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   Position = poScreenCenter
  17.   Scaled = False
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Image_Main: TImage
  22.     Left = 0
  23.     Top = 0
  24.     Width = 428
  25.     Height = 252
  26.     AutoSize = True
  27.     Picture.Data = {<image000.TPngImage>}
  28.     OnMouseDown = Image_MainMouseDown
  29.   end
  30.   object ImageNote_Close: TImageNote
  31.     Left = 396
  32.     Top = 8
  33.     Width = 24
  34.     Height = 24
  35.     Cursor = crHandPoint
  36.     ParentShowHint = False
  37.     Picture.Data = {<image001.TPngImage>}
  38.     ShowHint = True
  39.     OnClick = ImageNote_CloseClick
  40.     OnMouseDown = ImageNote_CloseMouseDown
  41.     OnMouseEnter = ImageNote_CloseMouseEnter
  42.     OnMouseLeave = ImageNote_CloseMouseLeave
  43.     OnMouseMove = ImageNote_CloseMouseMove
  44.     OnMouseUp = ImageNote_CloseMouseUp
  45.     ImageIndex = 0
  46.     Items = <
  47.       item
  48.         Name = 'Picture_0_Normal'
  49.         Picture.Data = {<image002.TPngImage>}
  50.       end
  51.       item
  52.         Name = 'Picture_1_Over'
  53.         Picture.Data = {<image003.TPngImage>}
  54.       end
  55.       item
  56.         Name = 'Picture_2_Click'
  57.         Picture.Data = {<image004.TPngImage>}
  58.       end>
  59.   end
  60.   object ImageNote_DownloadNow: TImageNote
  61.     Left = 155
  62.     Top = 208
  63.     Width = 118
  64.     Height = 30
  65.     AutoSize = True
  66.     Picture.Data = {<image005.TPngImage>}
  67.     Visible = False
  68.     OnClick = ImageNote_DownloadNowClick
  69.     OnMouseDown = ImageNote_DownloadNowMouseDown
  70.     OnMouseEnter = ImageNote_DownloadNowMouseEnter
  71.     OnMouseLeave = ImageNote_DownloadNowMouseLeave
  72.     OnMouseMove = ImageNote_DownloadNowMouseMove
  73.     OnMouseUp = ImageNote_DownloadNowMouseUp
  74.     ImageIndex = 0
  75.     Items = <
  76.       item
  77.         Name = 'Picture_0_normal'
  78.         Picture.Data = {<image006.TPngImage>}
  79.       end
  80.       item
  81.         Name = 'Picture_1_over'
  82.         Picture.Data = {<image007.TPngImage>}
  83.       end
  84.       item
  85.         Name = 'Picture_2_click'
  86.         Picture.Data = {<image008.TPngImage>}
  87.       end>
  88.   end
  89.   object Label_Cancel: TLabel
  90.     Left = 10
  91.     Top = 202
  92.     Width = 38
  93.     Height = 16
  94.     Cursor = crHandPoint
  95.     Caption = 'Cancel'
  96.     Font.Charset = DEFAULT_CHARSET
  97.     Font.Color = 10066329
  98.     Font.Height = -13
  99.     Font.Name = 'Tahoma'
  100.     Font.Style = [fsUnderline]
  101.     ParentFont = False
  102.     Transparent = True
  103.     OnClick = Label_CancelClick
  104.   end
  105.   object Label_DecideLater: TLabel
  106.     Left = 309
  107.     Top = 217
  108.     Width = 68
  109.     Height = 16
  110.     Cursor = crHandPoint
  111.     Caption = 'Decide later'
  112.     Font.Charset = DEFAULT_CHARSET
  113.     Font.Color = 10066329
  114.     Font.Height = -13
  115.     Font.Name = 'Tahoma'
  116.     Font.Style = [fsUnderline]
  117.     ParentFont = False
  118.     Transparent = True
  119.     Visible = False
  120.     OnClick = Label_DecideLaterClick
  121.   end
  122.   object Label_Titile: TLabel
  123.     Left = 42
  124.     Top = 10
  125.     Width = 141
  126.     Height = 17
  127.     Caption = 'Driver Booster Updater'
  128.     Font.Charset = DEFAULT_CHARSET
  129.     Font.Color = 10066329
  130.     Font.Height = -14
  131.     Font.Name = 'Tahoma'
  132.     Font.Style = []
  133.     ParentFont = False
  134.     Transparent = True
  135.   end
  136.   object Image_Logo: TImage
  137.     Left = 10
  138.     Top = 8
  139.     Width = 24
  140.     Height = 24
  141.     Picture.Data = {<image009.TPngImage>}
  142.   end
  143.   object Label_DownloadNow: TLabel
  144.     Left = 171
  145.     Top = 217
  146.     Width = 84
  147.     Height = 16
  148.     Caption = 'Download now'
  149.     Font.Charset = DEFAULT_CHARSET
  150.     Font.Color = clWhite
  151.     Font.Height = -13
  152.     Font.Name = 'Tahoma'
  153.     Font.Style = []
  154.     ParentFont = False
  155.     Transparent = True
  156.     Visible = False
  157.     OnClick = ImageNote_DownloadNowClick
  158.     OnMouseDown = ImageNote_DownloadNowMouseDown
  159.     OnMouseMove = ImageNote_DownloadNowMouseMove
  160.     OnMouseUp = ImageNote_DownloadNowMouseUp
  161.     OnMouseEnter = ImageNote_DownloadNowMouseEnter
  162.     OnMouseLeave = ImageNote_DownloadNowMouseLeave
  163.   end
  164.   object Label_ProxySet: TLabel
  165.     Left = 10
  166.     Top = 217
  167.     Width = 81
  168.     Height = 16
  169.     Cursor = crHandPoint
  170.     Caption = 'Proxy Settings'
  171.     Font.Charset = DEFAULT_CHARSET
  172.     Font.Color = 10066329
  173.     Font.Height = -13
  174.     Font.Name = 'Tahoma'
  175.     Font.Style = [fsUnderline]
  176.     ParentFont = False
  177.     Transparent = True
  178.     Visible = False
  179.   end
  180.   object ImageNote_RestartNow: TImageNote
  181.     Left = 155
  182.     Top = 183
  183.     Width = 118
  184.     Height = 30
  185.     AutoSize = True
  186.     Picture.Data = {<image010.TPngImage>}
  187.     Visible = False
  188.     OnClick = ImageNote_RestartNowClick
  189.     OnMouseDown = ImageNote_RestartNowMouseDown
  190.     OnMouseEnter = ImageNote_RestartNowMouseEnter
  191.     OnMouseLeave = ImageNote_RestartNowMouseLeave
  192.     OnMouseMove = ImageNote_RestartNowMouseMove
  193.     OnMouseUp = ImageNote_RestartNowMouseUp
  194.     ImageIndex = 0
  195.     Items = <
  196.       item
  197.         Name = 'Picture_0_normal'
  198.         Picture.Data = {<image011.TPngImage>}
  199.       end
  200.       item
  201.         Name = 'Picture_1_over'
  202.         Picture.Data = {<image012.TPngImage>}
  203.       end
  204.       item
  205.         Name = 'Picture_2_click'
  206.         Picture.Data = {<image013.TPngImage>}
  207.       end>
  208.   end
  209.   object Label_RestartNow: TLabel
  210.     Left = 176
  211.     Top = 191
  212.     Width = 70
  213.     Height = 16
  214.     Caption = 'Restart Now'
  215.     Font.Charset = DEFAULT_CHARSET
  216.     Font.Color = clWhite
  217.     Font.Height = -13
  218.     Font.Name = 'Tahoma'
  219.     Font.Style = []
  220.     ParentFont = False
  221.     Transparent = True
  222.     Visible = False
  223.     OnClick = ImageNote_RestartNowClick
  224.     OnMouseDown = ImageNote_RestartNowMouseDown
  225.     OnMouseMove = ImageNote_RestartNowMouseMove
  226.     OnMouseUp = ImageNote_RestartNowMouseUp
  227.     OnMouseEnter = ImageNote_RestartNowMouseEnter
  228.     OnMouseLeave = ImageNote_RestartNowMouseLeave
  229.   end
  230.   object ImageNote_RestartLater: TImageNote
  231.     Left = 284
  232.     Top = 183
  233.     Width = 118
  234.     Height = 30
  235.     AutoSize = True
  236.     Picture.Data = {<image014.TPngImage>}
  237.     Visible = False
  238.     OnClick = ImageNote_RestartLaterClick
  239.     OnMouseDown = ImageNote_RestartLaterMouseDown
  240.     OnMouseEnter = ImageNote_RestartLaterMouseEnter
  241.     OnMouseLeave = ImageNote_RestartLaterMouseLeave
  242.     OnMouseMove = ImageNote_RestartLaterMouseMove
  243.     OnMouseUp = ImageNote_RestartLaterMouseUp
  244.     ImageIndex = 0
  245.     Items = <
  246.       item
  247.         Name = 'Picture_0_normal'
  248.         Picture.Data = {<image015.TPngImage>}
  249.       end
  250.       item
  251.         Name = 'Picture_1_over'
  252.         Picture.Data = {<image016.TPngImage>}
  253.       end
  254.       item
  255.         Name = 'Picture_2_click'
  256.         Picture.Data = {<image017.TPngImage>}
  257.       end>
  258.   end
  259.   object Label_RestartLater: TLabel
  260.     Left = 305
  261.     Top = 191
  262.     Width = 74
  263.     Height = 16
  264.     Caption = 'Restart Later'
  265.     Font.Charset = DEFAULT_CHARSET
  266.     Font.Color = clWhite
  267.     Font.Height = -13
  268.     Font.Name = 'Tahoma'
  269.     Font.Style = []
  270.     ParentFont = False
  271.     Transparent = True
  272.     Visible = False
  273.     OnClick = ImageNote_RestartLaterClick
  274.     OnMouseDown = ImageNote_RestartLaterMouseDown
  275.     OnMouseMove = ImageNote_RestartLaterMouseMove
  276.     OnMouseUp = ImageNote_RestartLaterMouseUp
  277.     OnMouseEnter = ImageNote_RestartLaterMouseEnter
  278.     OnMouseLeave = ImageNote_RestartLaterMouseLeave
  279.   end
  280.   object ImageNote_Finish: TImageNote
  281.     Left = 155
  282.     Top = 236
  283.     Width = 118
  284.     Height = 30
  285.     AutoSize = True
  286.     Picture.Data = {<image018.TPngImage>}
  287.     Visible = False
  288.     OnClick = ImageNote_FinishClick
  289.     OnMouseDown = ImageNote_FinishMouseDown
  290.     OnMouseEnter = ImageNote_FinishMouseEnter
  291.     OnMouseLeave = ImageNote_FinishMouseLeave
  292.     OnMouseMove = ImageNote_FinishMouseMove
  293.     OnMouseUp = ImageNote_FinishMouseUp
  294.     ImageIndex = 0
  295.     Items = <
  296.       item
  297.         Name = 'Picture_0_normal'
  298.         Picture.Data = {<image019.TPngImage>}
  299.       end
  300.       item
  301.         Name = 'Picture_1_over'
  302.         Picture.Data = {<image020.TPngImage>}
  303.       end
  304.       item
  305.         Name = 'Picture_2_click'
  306.         Picture.Data = {<image021.TPngImage>}
  307.       end>
  308.   end
  309.   object Label_Finish: TLabel
  310.     Left = 203
  311.     Top = 239
  312.     Width = 16
  313.     Height = 16
  314.     Caption = 'OK'
  315.     Font.Charset = DEFAULT_CHARSET
  316.     Font.Color = clWhite
  317.     Font.Height = -13
  318.     Font.Name = 'Tahoma'
  319.     Font.Style = []
  320.     ParentFont = False
  321.     Transparent = True
  322.     Visible = False
  323.     OnClick = ImageNote_FinishClick
  324.     OnMouseDown = ImageNote_FinishMouseDown
  325.     OnMouseMove = ImageNote_FinishMouseMove
  326.     OnMouseUp = ImageNote_FinishMouseUp
  327.     OnMouseEnter = ImageNote_FinishMouseEnter
  328.     OnMouseLeave = ImageNote_FinishMouseLeave
  329.   end
  330.   object PageNote_Main: TPageNote
  331.     Left = 1
  332.     Top = 43
  333.     Width = 426
  334.     Height = 147
  335.     ActivePage = PageTab_3_Finish
  336.     TabIndex = 1
  337.     object PageTab_1_Checkupdate: TPageTab
  338.       Left = 0
  339.       Top = 0
  340.       Width = 426
  341.       Height = 147
  342.       Align = alClient
  343.       BevelOuter = bvNone
  344.       Color = 2171169
  345.       ParentBackground = False
  346.       TabOrder = 0
  347.       Visible = False
  348.       object Panel_CheckUpdate: TPanel
  349.         Left = 0
  350.         Top = 0
  351.         Width = 426
  352.         Height = 147
  353.         Align = alClient
  354.         BevelOuter = bvNone
  355.         Color = 2171169
  356.         ParentBackground = False
  357.         TabOrder = 0
  358.         object Label_CheckUpdate: TLabel
  359.           Left = 64
  360.           Top = 42
  361.           Width = 218
  362.           Height = 14
  363.           Caption = 'Getting update information, please wait'
  364.           Font.Charset = DEFAULT_CHARSET
  365.           Font.Color = 10066329
  366.           Font.Height = -12
  367.           Font.Name = 'Tahoma'
  368.           Font.Style = []
  369.           ParentFont = False
  370.           Transparent = True
  371.         end
  372.         object Label_UpdateDetails: TLabel
  373.           Left = 64
  374.           Top = 62
  375.           Width = 300
  376.           Height = 28
  377.           Caption = 
  378.             'New version of DriverBooster. Download now to get the latest fea' +
  379.             'tures and improvements.'
  380.           Constraints.MaxWidth = 300
  381.           Constraints.MinWidth = 300
  382.           Font.Charset = DEFAULT_CHARSET
  383.           Font.Color = 10066329
  384.           Font.Height = -12
  385.           Font.Name = 'Tahoma'
  386.           Font.Style = []
  387.           ParentFont = False
  388.           Transparent = True
  389.           Visible = False
  390.           WordWrap = True
  391.         end
  392.       end
  393.     end
  394.     object PageTab_3_Finish: TPageTab
  395.       Left = 0
  396.       Top = 0
  397.       Width = 426
  398.       Height = 147
  399.       Align = alClient
  400.       BevelOuter = bvNone
  401.       Color = 2171169
  402.       ParentBackground = False
  403.       TabOrder = 2
  404.       object Panel_Finish: TPanel
  405.         Left = 0
  406.         Top = 0
  407.         Width = 426
  408.         Height = 147
  409.         Align = alClient
  410.         BevelOuter = bvNone
  411.         Color = 2171169
  412.         ParentBackground = False
  413.         TabOrder = 0
  414.         object Label_NoUpdate: TLabel
  415.           Left = 71
  416.           Top = 50
  417.           Width = 300
  418.           Height = 14
  419.           Caption = 'Congratulations! You already have the latest version. '
  420.           Constraints.MaxWidth = 300
  421.           Constraints.MinWidth = 300
  422.           Font.Charset = DEFAULT_CHARSET
  423.           Font.Color = 10066329
  424.           Font.Height = -12
  425.           Font.Name = 'Tahoma'
  426.           Font.Style = []
  427.           ParentFont = False
  428.           Transparent = True
  429.           WordWrap = True
  430.         end
  431.         object Label_FinishInfo: TLabel
  432.           Left = 71
  433.           Top = 26
  434.           Width = 37
  435.           Height = 17
  436.           Caption = 'Finish!'
  437.           Font.Charset = DEFAULT_CHARSET
  438.           Font.Color = 10066329
  439.           Font.Height = -14
  440.           Font.Name = 'Tahoma'
  441.           Font.Style = []
  442.           ParentFont = False
  443.           Transparent = True
  444.           Visible = False
  445.           WordWrap = True
  446.         end
  447.         object Label_Nottention: TLabel
  448.           Left = 71
  449.           Top = 84
  450.           Width = 300
  451.           Height = 28
  452.           Caption = 
  453.             'Attention: DriverBooster will be restarted automatically to appl' +
  454.             'y the update.'
  455.           Constraints.MaxWidth = 300
  456.           Constraints.MinWidth = 300
  457.           Font.Charset = DEFAULT_CHARSET
  458.           Font.Color = 10066329
  459.           Font.Height = -12
  460.           Font.Name = 'Tahoma'
  461.           Font.Style = []
  462.           ParentFont = False
  463.           Transparent = True
  464.           Visible = False
  465.           WordWrap = True
  466.         end
  467.         object Label_RestartWarn: TLabel
  468.           Left = 71
  469.           Top = 118
  470.           Width = 300
  471.           Height = 28
  472.           Caption = 
  473.             'Attention: Please restart your computer to finish the update. Re' +
  474.             'start Now?'
  475.           Constraints.MaxWidth = 300
  476.           Constraints.MinWidth = 300
  477.           Font.Charset = DEFAULT_CHARSET
  478.           Font.Color = 10066329
  479.           Font.Height = -12
  480.           Font.Name = 'Tahoma'
  481.           Font.Style = []
  482.           ParentFont = False
  483.           Transparent = True
  484.           Visible = False
  485.           WordWrap = True
  486.         end
  487.       end
  488.     end
  489.     object PageTab_2_Download: TPageTab
  490.       Left = 0
  491.       Top = 0
  492.       Width = 426
  493.       Height = 147
  494.       Align = alClient
  495.       BevelOuter = bvNone
  496.       Color = 2171169
  497.       ParentBackground = False
  498.       TabOrder = 1
  499.       Visible = False
  500.       object Panel_Download: TPanel
  501.         Left = 0
  502.         Top = 0
  503.         Width = 426
  504.         Height = 147
  505.         Align = alClient
  506.         BevelOuter = bvNone
  507.         Color = 2171169
  508.         ParentBackground = False
  509.         TabOrder = 0
  510.         object Label_NewVersionUpdate: TLabel
  511.           Left = 75
  512.           Top = 0
  513.           Width = 300
  514.           Height = 26
  515.           Caption = 
  516.             'New version of DriverBooster. Download now to get the latest fea' +
  517.             'tures and improvements.'
  518.           Constraints.MaxWidth = 300
  519.           Constraints.MinWidth = 300
  520.           Font.Charset = DEFAULT_CHARSET
  521.           Font.Color = 10066329
  522.           Font.Height = -11
  523.           Font.Name = 'Tahoma'
  524.           Font.Style = []
  525.           ParentFont = False
  526.           Transparent = True
  527.           Visible = False
  528.           WordWrap = True
  529.         end
  530.         object Label_DownloadName: TLabel
  531.           Left = 9
  532.           Top = 112
  533.           Width = 51
  534.           Height = 13
  535.           Caption = 'Test Name'
  536.           Font.Charset = DEFAULT_CHARSET
  537.           Font.Color = 10066329
  538.           Font.Height = -11
  539.           Font.Name = 'Tahoma'
  540.           Font.Style = []
  541.           ParentFont = False
  542.           Visible = False
  543.         end
  544.         object Label_DownloadSpeed: TLabel
  545.           Left = 6
  546.           Top = 131
  547.           Width = 54
  548.           Height = 13
  549.           Caption = 'Test Speed'
  550.           Font.Charset = DEFAULT_CHARSET
  551.           Font.Color = 10066329
  552.           Font.Height = -11
  553.           Font.Name = 'Tahoma'
  554.           Font.Style = []
  555.           ParentFont = False
  556.           Visible = False
  557.         end
  558.         object Label_DownloadPercent: TLabel
  559.           Left = 8
  560.           Top = 93
  561.           Width = 61
  562.           Height = 13
  563.           Caption = 'Test Percent'
  564.           Font.Charset = DEFAULT_CHARSET
  565.           Font.Color = 10066329
  566.           Font.Height = -11
  567.           Font.Name = 'Tahoma'
  568.           Font.Style = []
  569.           ParentFont = False
  570.           Visible = False
  571.         end
  572.         object Label_ClickDownload: TLabel
  573.           Left = 75
  574.           Top = 93
  575.           Width = 300
  576.           Height = 13
  577.           Caption = 'Click "%s" to download and apply the update.'
  578.           Constraints.MaxWidth = 300
  579.           Constraints.MinWidth = 300
  580.           Font.Charset = DEFAULT_CHARSET
  581.           Font.Color = 10066329
  582.           Font.Height = -11
  583.           Font.Name = 'Tahoma'
  584.           Font.Style = []
  585.           ParentFont = False
  586.           Transparent = True
  587.           WordWrap = True
  588.         end
  589.         object Label_NewFileUpdate: TLabel
  590.           Left = 75
  591.           Top = 32
  592.           Width = 300
  593.           Height = 26
  594.           Caption = 
  595.             'Get available updates. Download now to get the latest features a' +
  596.             'nd improvements.'
  597.           Constraints.MaxWidth = 300
  598.           Constraints.MinWidth = 300
  599.           Font.Charset = DEFAULT_CHARSET
  600.           Font.Color = 10066329
  601.           Font.Height = -11
  602.           Font.Name = 'Tahoma'
  603.           Font.Style = []
  604.           ParentFont = False
  605.           Transparent = True
  606.           Visible = False
  607.           WordWrap = True
  608.         end
  609.         object ListView_Download: TListView
  610.           Left = 381
  611.           Top = 15
  612.           Width = 250
  613.           Height = 102
  614.           Columns = <
  615.             item
  616.               Caption = 'Name'
  617.               Width = 100
  618.             end
  619.             item
  620.               Caption = 'Size'
  621.               Width = 100
  622.             end>
  623.           TabOrder = 0
  624.           ViewStyle = vsReport
  625.           Visible = False
  626.         end
  627.         object ImageProgress_Download: TImageProgress
  628.           Tag = 99
  629.           Left = 75
  630.           Top = 131
  631.           Width = 282
  632.           Height = 4
  633.           Items = <
  634.             item
  635.               Name = 'bg_mid'
  636.               Picture.Data = {<image022.TPngImage>}
  637.               Top = 0
  638.               Left = 2
  639.               Width = 551
  640.               Height = 4
  641.               Stretch = True
  642.             end
  643.             item
  644.               Name = 'bg_l'
  645.               Picture.Data = {<image023.TPngImage>}
  646.               Top = 0
  647.               Left = 0
  648.               Width = 2
  649.               Height = 4
  650.               Align = alLeft
  651.             end
  652.             item
  653.               Name = 'bg_r'
  654.               Picture.Data = {<image024.TPngImage>}
  655.               Top = 0
  656.               Left = 0
  657.               Width = 2
  658.               Height = 4
  659.               Align = alRight
  660.             end
  661.             item
  662.               Name = 'fg_mid'
  663.               Picture.Data = {<image025.TPngImage>}
  664.               Top = 0
  665.               Left = 2
  666.               Width = 278
  667.               Height = 4
  668.               Stretch = True
  669.             end
  670.             item
  671.               Name = 'fg_l'
  672.               Picture.Data = {<image026.TPngImage>}
  673.               Top = 0
  674.               Left = 0
  675.               Width = 2
  676.               Height = 4
  677.               Align = alLeft
  678.             end
  679.             item
  680.               Name = 'fg_r'
  681.               Picture.Data = {<image027.TPngImage>}
  682.               Top = 0
  683.               Left = 280
  684.               Width = 2
  685.               Height = 4
  686.             end>
  687.           visible = False
  688.           Max = 100
  689.           Min = 0
  690.           Position = 100
  691.           OpenAnimate = False
  692.           AnimateTop = 11
  693.         end
  694.       end
  695.     end
  696.   end
  697.   object Timer_Start: TTimer
  698.     Enabled = False
  699.     Interval = 100
  700.     OnTimer = Timer_StartTimer
  701.     Left = 216
  702.     Top = 8
  703.   end
  704.   object Timer_Close: TTimer
  705.     Enabled = False
  706.     OnTimer = Timer_CloseTimer
  707.     Left = 280
  708.     Top = 8
  709.   end
  710. end
  711.